
#If Not (PocketPC OrElse Smartphone) Then

Public Class transparentRichTextBox
    Inherits System.Windows.Forms.RichTextBox

    Public Sub New()
        MyBase.SetStyle(Windows.Forms.ControlStyles.UserPaint, True)
        MyBase.SetStyle(Windows.Forms.ControlStyles.SupportsTransparentBackColor, True)
    End Sub

    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim cp As System.Windows.Forms.CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or 32
            Return cp
        End Get
    End Property

    Protected Overrides Sub OnPaintBackground(ByVal e As System.Windows.Forms.PaintEventArgs)
    End Sub
End Class

#End If
